#include <iostream>
#include <stdlib.h>
#include <conio.h>
#include <windows.h>

using namespace std;

//funciones extra
void setcursor(boolean visible, DWORD size){
	HANDLE console = GetStdHandle(STD_OUTPUT_HANDLE);

	if(size==0){
		size = 20;
	}

	CONSOLE_CURSOR_INFO lpCursor;
	lpCursor.bVisible = visible;
	lpCursor.dwSize = size;
	SetConsoleCursorInfo(console,&lpCursor);
}

void gotoxy(int x,int y){
	HANDLE hcon = GetStdHandle(STD_OUTPUT_HANDLE);
	COORD dwPos;
	dwPos.X = x;
	dwPos.Y = y;
	SetConsoleCursorPosition(hcon, dwPos);
}
/*
	i : son las filas
	j : son las columnas
	
	1 : esta vivo
	0 : esta muerto
*/

//arreglos para las celulas
	int celula_A[100][100];
	int celula_B[100][100];
	
	int gener = 0,
		pobla = 0;
		
	int  alto = 40, //30
		ancho = 81; //90
		
	bool turno = false;

//Funciones
	void ingresarM(); //ingresar los datos manualmente
	void ingresarA(); //ingresar los datos automaticamente
	
	void muestraA();  //muestra los datos de el arreglo celulas
	void muestraB();
	
	void analizaA();  //analiza los datos de los arreglos A
	void analizaB();  //analiza los datos de los arreglos A
	
	void reiniciar();//le falta el sistema de reinicio

int main(){
	
	system("title El juego de la vida / Maquina de turing");
	
	inicio:
	setcursor(false,0); //cursor invisible
	char opcion;
	bool b_opcion = true;   
	
	do{
	
	system("cls");
		
	cout<<"\n ________      _______          ___________________     ________________________"<<endl;
	cout<<"    |    |_____|______    |       |  |______|______    |  ___|_____|  |  |______"<<endl;
	cout<<"    |    |     |______    |_______|__|      |______    |_____|     |  |  |______"<<endl;
	cout<<"                                                                                "<<endl;
	
	reiniciar();
	
	do{
		cout<<"\n     ingresar los datos maualmente o automaticamente?\n\n   - 1. Manualmente\n   - 2. Automaticamente\n   - 3. Cambiar tama€o\n   - 4. Salir"<<endl;
		
		b_opcion = false;
		
		opcion = getch();
		
		switch(opcion){
			
			case '1':
				b_opcion = false; 
				ingresarM();
				break;
				
			case '2':
				b_opcion = false; 
				ingresarA();
				break;
				
			case '3':
				cout<<"\nEl tama€o del tablero es de 40 x 81, el minimo es 3x3 y el maximo 100x100... "<<endl;
				cout<<" - Nuevo alto   : "; cin>>alto;
				cout<<" - Nuevo anchio : "; cin>>ancho;
				
				if(alto > 100){
					alto = 100;
				}
				if(alto < 3){
					alto = 3;
				}
				
				if(ancho > 100){
					ancho = 100;
				}
				if(ancho < 3){
					ancho = 3;
				}
				
				b_opcion = true;
				
				break;	
			
			case '4':
				cout<<"\nHasta pronto (=^'w'^=)"<<endl;
				system("pause");
				return 0;
				break;
				
			default:
				cout<<"Esa opcion no existe, intentalo otra vez"<<endl;
				break;
		}
		
	}while(b_opcion);
	
	b_opcion = true;
	system("cls");
	
	while(b_opcion){
		
		analizaA();
		muestraA();
		pobla = 0;
		for(int i=0;i<alto;i++){	
			for(int j=0;j<ancho;j++){
				if(celula_A[i][j]==1){
					pobla++;
				}
			}
		}
		cout<<"| pulsa m para volver al menu | generacion : "<<gener<<" | poblacion : "<<pobla<<"   "<<endl;
		gener++;
		
		if(kbhit()){
			
			opcion = getch();
			
			if(opcion == 'm'){
				b_opcion = false;
			}
			else{
				system("pause");
			}
				
		}
//-------------------------------------------------------------------------------------------------------------------------------------		
		analizaB();
		muestraB();
		pobla = 0;
		for(int i=0;i<alto;i++){	
			for(int j=0;j<ancho;j++){
				if(celula_B[i][j]==1){
					pobla++;
				}
			}
		}
		cout<<"| pulsa m para volver al menu | generacion : "<<gener<<" | poblacion : "<<pobla<<"   "<<endl;
		gener++;
		
		if(kbhit()){
			
			opcion = getch();
			
			if(opcion == 'm'){
				b_opcion = false;
			}
			else{
				system("pause");
			}
		}
	
	}
	
    }while(true);
	
	return 0;
	
}

void ingresarA(){ //ingresar datos aleatoriamente
	
	for(int i=0;i<alto;i++){
		
		for(int j=0;j<ancho;j++){
			
			celula_B[i][j]= 0 + rand()%(2);
			
		}
		
	}
	
}

void ingresarM(){ //ingresar datos manuales
	setcursor(false,0); //cursor invisible
	bool b_manual = true;
	int mov,i,j;
	
/*
	i : son las filas
	j : son las columnas
	
	1 : esta vivo
	0 : esta muerto
*/
	
	
	system("cls");
	
	muestraB();
	
	do{
		
		mov = getch();
		
		switch(mov){
			case 119: //arriba
				i--;
			break;
			
			case 115: //abajo
				i++;
			break;
			
			case 100: //derecha
				j++;
			break;
			
			case 97: //izquierda
				j--;
			break;
			
			case 32: //hacer vivir una celula, espacio
			
				celula_B[i][j] = 1;

			break;
				
			case 104://ayuda, h
				
				system("cls");
			
				cout<<"ΙΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝ»"<<endl;
				cout<<"Ί Tecla | ***** Accion ***** Ί"<<endl;
				cout<<"ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ"<<endl;
				cout<<"Ί   w   |       Arriba       Ί"<<endl;
				cout<<"ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ"<<endl;
				cout<<"Ί   a   |     Izquierda      Ί"<<endl;
				cout<<"ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ"<<endl;
				cout<<"Ί   d   |      Derecha       Ί"<<endl;
				cout<<"ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ"<<endl;
				cout<<"Ί   s   |       Abajo        Ί"<<endl;
				cout<<"ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ"<<endl;
				cout<<"Ί  Esp  |   Aparecer celula  Ί"<<endl;
				cout<<"ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ"<<endl;
				cout<<"Ί   h   |       Ayuda        Ί"<<endl;
				cout<<"ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ"<<endl;
				cout<<"Ί   f   |   Limpiar rastro   Ί"<<endl;
				cout<<"ΜΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΉ"<<endl;
				cout<<"Ί   y   | Iniciar simulacion Ί"<<endl;
				cout<<"ΘΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΝΌ"<<endl;
				
				system("pause");
				
			break;
			
			case 121://terminar, y
				b_manual = false;
			break;
			
			default: //niguna de la anteriores
				system("cls");
				muestraB();
			break;
		}
		
		if(i < 1){
			i =  1;
		}
		if(j < 1){
			j =  1;
		}
		if(j > ancho){
			j = ancho;
		}
		if(i > alto){
			i = alto;
		}
		
		gotoxy(j,i);
		cout<<'Ϋ'<<endl;
		
	}while(b_manual);
	
}

void muestraA(){
	setcursor(false,0); //cursor invisible
	for (int i=0;i<alto;i++){
		for (int j=0;j<ancho;j++){
			if (celula_A[i][j]==1){
				gotoxy(j,i);
				cout<<'Ϋ';
			}
			else if (celula_A[i][j]==0){
				gotoxy(j,i);
				cout<<'°';
			}
		}
		cout<<endl;
	}
}

void muestraB(){
	setcursor(false,0); //cursor invisible
	for (int i=0;i<alto;i++){
		for (int j=0;j<ancho;j++){
			if (celula_B[i][j]==1){
				gotoxy(j,i);
				cout<<'Ϋ';
			}
			else if (celula_B[i][j]==0){
				gotoxy(j,i);
				cout<<'°';
			}
		}
		cout<<endl;
	}
}

void analizaA(){
	for(int i = 0; i < alto; i++){
		for(int j = 0; j < ancho; j++){
			
			if(celula_B[i][j] == 1){ //se determina si la celula esta viva
				/*Que Hace? :
					evalua si las celula_B alrededor de la celula central estn vivas,
					si son diferentes a 3 y a 2, estonces la celula permanece muerta*/
					 
				if((celula_B[i+1][j]+celula_B[i-1][j]+celula_B[i][j+1]+celula_B[i][j-1]+celula_B[i-1][j-1]+celula_B[i-1][j+1]+celula_B[i+1][j-1]+celula_B[i+1][j+1]!=3)&&(celula_B[i+1][j]+celula_B[i-1][j]+celula_B[i][j+1]+celula_B[i][j-1]+celula_B[i-1][j-1]+celula_B[i-1][j+1]+celula_B[i+1][j-1]+celula_B[i+1][j+1]!=2)){
					celula_A[i][j]=0;
				}
				/*  evalua si las celulas alrededor de la celula central estn vivas,
					si son iguales a 3 y a 2, estonces la celula permanece viva*/
					
				if((celula_B[i+1][j]+celula_B[i-1][j]+celula_B[i][j+1]+celula_B[i][j-1]+celula_B[i-1][j-1]+celula_B[i-1][j+1]+celula_B[i+1][j-1]+celula_B[i+1][j+1]==3)||(celula_B[i+1][j]+celula_B[i-1][j]+celula_B[i][j+1]+celula_B[i][j-1]+celula_B[i-1][j-1]+celula_B[i-1][j+1]+celula_B[i+1][j-1]+celula_B[i+1][j+1]==2)){
					celula_A[i][j]=1;
				}
				
			}
			
			else if(celula_B[i][j] == 0){ //o muerta
				/*Que Hace? :
					evalua si las celulas cumple cocelulas los reqisitos para nacer*/
					
				if (celula_B[i+1][j]+celula_B[i-1][j]+celula_B[i][j+1]+celula_B[i][j-1]+celula_B[i-1][j-1]+celula_B[i-1][j+1]+celula_B[i+1][j-1]+celula_B[i+1][j+1]==3){	
					celula_A[i][j]=1;
				}
				/*Que Hace? :
					evalua si las celulas permanese muerta*/
				
				if (celula_B[i+1][j]+celula_B[i-1][j]+celula_B[i][j+1]+celula_B[i][j-1]+celula_B[i-1][j-1]+celula_B[i-1][j+1]+celula_B[i+1][j-1]+celula_B[i+1][j+1]!=3){
					celula_A[i][j]=0;
				}
			}
		}
	}
}

void analizaB(){
	for(int i = 0; i < alto; i++){
		for(int j = 0; j < ancho; j++){
			
			if(celula_A[i][j] == 1){ //se determina si la celula esta viva
				/*Que Hace? :
					evalua si las celula_A alrededor de la celula central estn vivas,
					si son diferentes a 3 y a 2, estonces la celula permanece muerta*/
					 
				if((celula_A[i+1][j]+celula_A[i-1][j]+celula_A[i][j+1]+celula_A[i][j-1]+celula_A[i-1][j-1]+celula_A[i-1][j+1]+celula_A[i+1][j-1]+celula_A[i+1][j+1]!=3)&&(celula_A[i+1][j]+celula_A[i-1][j]+celula_A[i][j+1]+celula_A[i][j-1]+celula_A[i-1][j-1]+celula_A[i-1][j+1]+celula_A[i+1][j-1]+celula_A[i+1][j+1]!=2)){
					celula_B[i][j]=0;
				}
				/*  evalua si las celulas alrededor de la celula central estn vivas,
					si son iguales a 3 y a 2, estonces la celula permanece viva*/
					
				if((celula_A[i+1][j]+celula_A[i-1][j]+celula_A[i][j+1]+celula_A[i][j-1]+celula_A[i-1][j-1]+celula_A[i-1][j+1]+celula_A[i+1][j-1]+celula_A[i+1][j+1]==3)||(celula_A[i+1][j]+celula_A[i-1][j]+celula_A[i][j+1]+celula_A[i][j-1]+celula_A[i-1][j-1]+celula_A[i-1][j+1]+celula_A[i+1][j-1]+celula_A[i+1][j+1]==2)){
					celula_B[i][j]=1;
				}
				
			}
			
			else if(celula_A[i][j] == 0){ //o muerta

				if (celula_A[i+1][j]+celula_A[i-1][j]+celula_A[i][j+1]+celula_A[i][j-1]+celula_A[i-1][j-1]+celula_A[i-1][j+1]+celula_A[i+1][j-1]+celula_A[i+1][j+1]==3){	
					celula_B[i][j]=1;
				}
				
				if (celula_A[i+1][j]+celula_A[i-1][j]+celula_A[i][j+1]+celula_A[i][j-1]+celula_A[i-1][j-1]+celula_A[i-1][j+1]+celula_A[i+1][j-1]+celula_A[i+1][j+1]!=3){
					celula_B[i][j]=0;
				}
			}
		}
	}
}

void reiniciar(){
	for(int i = 0; i < alto; i++){
		for(int j = 0; j < ancho; j++){
			celula_B[i][j] = 0;
			celula_A[i][j] = 0;
		}
	}
	
	gener = 0;
}